﻿Public Class WebForm1
    Inherits System.Web.UI.Page

    Public Class ModalMessage
        Public Property MessageText As String
        Public Property MessageType As enmMessageType
    End Class

    Public Enum enmAnswer

        OK = 0
        Cancel = 1

    End Enum


    Public Enum enmMessageType
        Success = 0
        Info = 1
        [Error] = 2
        Attention = 3
    End Enum

    Public Function GetIconaVisibile(ByVal pTipo As Object, ByVal pConfronta As enmMessageType) As Boolean

        If DirectCast(pTipo, enmMessageType) = pConfronta Then
            Return True
        Else
            Return False
        End If

    End Function



End Class